home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / CBL / CALLSQA.CBL < prev    next >
Text File  |  1987-11-20  |  1KB  |  26 lines
  1.               IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. CALL370.
  3.       ****************************************************************
  4.       *   CALLSQA  is a test program for the subprogram "TESTSQA".   *
  5.       ****************************************************************
  6.        ENVIRONMENT DIVISION.
  7.        CONFIGURATION SECTION.
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  ADDR-MEMORY PIC 9(9)  USAGE COMP VALUE 0.
  11.        01  LENGTH-MEMORY PIC 9(9)  USAGE COMP VALUE 0.
  12.        01  REQUEST-MEMORY PIC 9(9) USAGE COMP VALUE 1024.
  13.        PROCEDURE DIVISION.
  14.        SET-UP.
  15.                DISPLAY "CALL TESTSQA.BIN TO GET NEXT FREE SQA BLOCK".
  16.        CALL-370.
  17.                MOVE REQUEST-MEMORY TO LENGTH-MEMORY.
  18.                CALL "TESTSQA" USING ADDR-MEMORY LENGTH-MEMORY.
  19.                DISPLAY "RETURN CODE    =" RETURN-CODE
  20.                DISPLAY "MEMORY ADDRESS =" ADDR-MEMORY.
  21.                DISPLAY "MEMORY LENGTH  =" LENGTH-MEMORY.
  22.        END-JOB.
  23.                DISPLAY "EXITING TESTSQA NOW".
  24.                EXIT PROGRAM.
  25.                STOP RUN.
  26.